;; extension of string->number: eliminates white spaces ;; otherwise (print (string->number " 5.6 ")) would given an error (define cl:string->number (lambda (s) (string->number (list->string (remove-all (cl:char " ") (string->list s))))))